home *** CD-ROM | disk | FTP | other *** search
/ Five Millennia of Chinese…es of a Spritual Journey / Five Millennia of Chinese Art: Images of a Spritual Journey.iso / setup / setup.mst < prev    next >
Text File  |  1995-10-11  |  9KB  |  250 lines
  1. '**************************************************************************
  2. '*                     MUSEUM FOR WINDOWS 
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'mscpydis.inc'    ''System
  7. '$INCLUDE 'msdetect.inc'    ''Detects Avalilable Disk Space
  8.  
  9. ''Dialog ID's
  10. CONST WELCOME       = 100
  11. CONST ASKQUIT       = 200
  12. CONST DESTPATH      = 300
  13. CONST EXITFAILURE   = 400
  14. CONST EXITQUIT      = 600
  15. CONST EXITSUCCESS   = 700
  16. CONST OPTIONS       = 800
  17. CONST APPHELP       = 900
  18. CONST APPHELP2      = 1500
  19. CONST APPHELP3      = 1700
  20. CONST CHECK         = 2500
  21. CONST TOOBIG        = 6300
  22. CONST BADPATH       = 6400
  23.  
  24. ''Bitmap ID
  25. CONST LOGO = 1
  26.  
  27. ''Disk Sizes
  28.  
  29. GLOBAL File1
  30. GLOBAL File2
  31. GLOBAL WantedDiskSize&
  32.  
  33. ''File Types
  34. GLOBAL DEST$        ''Default destination directory.
  35. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  36. GLOBAL OPTCUR$      ''Option selection from option dialog.
  37. GLOBAL CHECKSTATES$
  38. GLOBAL RUNTIME$
  39. GLOBAL AVITOOLS$
  40. GLOBAL MDKTOOLS$
  41. GLOBAL TOOLS$
  42.  
  43. ''start install procedure indicator
  44. GLOBAL WinVfw$        ''Windows Video For Windows old Indeo driver path and file name
  45. GLOBAL IFileExists
  46.  
  47. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  48. WinDir$ = GetWindowsDir()
  49. WinSysDir$ = GetWindowsSysDir()
  50.  
  51. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  52.  
  53. INIT:
  54.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  55.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  56.     DEST$ = "c:\emuseum"
  57.     MajorVer% = GetWindowsMajorVersion()
  58.     MinorVer% = GetWindowsMinorVersion()
  59.  
  60.     IF  MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  61.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  62.         END
  63.     END IF
  64.  
  65.     SetBitmap CUIDLL$, LOGO
  66.     SetTitle "MUSEUM for Windows"
  67.  
  68.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  69.     IF szInf$ = "" THEN
  70.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  71.     END IF
  72.     ReadInfFile szInf$
  73.  
  74.     WINDRIVE$ = MID$(WinDir$, 1, 1)
  75.  
  76. WELCOME:
  77.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  78.     IF sz$ = "CONTINUE" THEN
  79.         UIPop 1
  80.     ELSE
  81.         GOSUB ASKQUIT
  82.         GOTO WELCOME
  83.     END IF
  84.  
  85.     IFileExists = 0
  86. GETPATH:
  87.     DEST$ = "C:\EMUSEUM"
  88.  
  89.     SetSymbolValue "EditTextIn", DEST$
  90.     SetSymbolValue "EditFocus", "END"
  91.  
  92. GETPATHL1:
  93.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  94.  
  95.     DEST$ = GetSymbolValue("EditTextOut")
  96.  
  97.     IF sz$ = "CONTINUE" THEN
  98.         IF IsDirWritable(DEST$) = 0 THEN
  99.             GOSUB BADPATH
  100.             GOTO GETPATHL1
  101.         END IF
  102.         IF GetFreeSpaceForDrive( MID$( DEST$, 1, 1 ) ) < 11000000 THEN
  103.             GOSUB TOOBIG
  104.             GOTO GETPATHL1
  105.         END IF
  106.         UIPop 1
  107.     ELSEIF sz$ = "REACTIVATE" THEN
  108.         GOTO GETPATHL1
  109.     ELSEIF sz$ = "BACK" THEN
  110.         UIPop 1
  111.         GOTO WELCOME
  112.     ELSE
  113.         GOSUB ASKQUIT
  114.         GOTO GETPATHL1
  115.     END IF
  116.  
  117. ClearCopyList
  118.  
  119.      
  120.  
  121. '' Setting RUNTIME files to be copied
  122.         AddSectionFilesToCopyList "DLLs", SrcDir$, WinSysDir$
  123.         AddSectionFilesToCopyList "MUSEUM", SrcDir$, DEST$
  124.     AddSectionFilesToCopyList "Windows", SrcDir$, WinDir$
  125.     AddSectionFilesToCopyList "VfW Runtime", SrcDir$, WinSysDir$
  126.         AddSectionFilesToCopyList "ACM Drivers", SrcDir$, WinSysDir$
  127.         AddSectionFilesToCopyList "AVICodecs", SrcDir$, WinSysDir$
  128.  
  129. SetRestartDir WinDir$
  130. CopyFilesInCopyList
  131.  
  132. ''Updating WIN.INI and SYSTEM.INI
  133.       CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  134.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  135.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV32", "ir32.dll", cmoOverwrite
  136.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "IR32.dll", cmoOverwrite
  137.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  138.         I% = DoesIniKeyExist ("system.ini", "Drivers", "VIDC.RT21")
  139.         IF I% = 0  THEN
  140.            CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "ir21_r.dll", cmoOverwrite
  141.         END IF
  142.        CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  143.         CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  144.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  145.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  146.         CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  147.         CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  148.        CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  149.         CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  150.            CreateIniKeyValue WinDir$ + "system.ini", "mci","Animation1","mciaap.drv", cmoOverwrite
  151.         CreateIniKeyValue "WIN.INI", "mci extensions", "flc", "Animation1", cmoOverwrite
  152.         CreateIniKeyValue "WIN.INI", "mci extensions", "fli", "Animation1", cmoOverwrite
  153.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupsyscolors", "true", cmoOverwrite
  154.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupSysBooks", dest$+"\tbkmm.sbk", cmoOverwrite
  155.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupWidth", "12000", cmoOverwrite
  156.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupHeight", "9000", cmoOverwrite
  157.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupDrawDirect", "false", cmoOverwrite
  158.     CreateIniKeyValue "WIN.INI", "ToolBook", "ScriptEditor", "21,12,621,476,0,Courier,10,0", cmoOverwrite
  159.     CreateIniKeyValue "WIN.INI", "ToolBook", "DebugWindow", "0,1,483,280,7,278,261,203", cmoOverwrite
  160.     CreateIniKeyValue "WIN.INI", "MUSEUM", "CDDRIVE", "C", cmoOverwrite
  161.     CreateIniKeyValue "WIN.INI", "MUSEUM", "DIR", dest$, cmoOverwrite
  162.     CreateIniKeyValue "WIN.INI", "MUSEUM", "USECD", "Yes", cmoOverwrite
  163.     CreateIniKeyValue "WIN.INI", "MUSEUM", "VERSION", "2.11", cmoOverwrite
  164.     CreateProgmanGroup "EMUSEUM","",cmoNone
  165.     ShowProgmanGroup "EMUSEUM",1,cmoNone
  166.     CreateProgmanitem "EMUSEUM","EMUSEUM",dest$+"\TBOOK.EXE "+dest$+"\MUSEUM.TBK",MakePath(dest$,"MUSEUM.ICO"),cmoOverwrite
  167.     CreateProgmanitem "EMUSEUM","README",dest$+"\README.WRI",MakePath(dest$,"README.ICO"),cmoOverwrite
  168.     
  169. QUIT:
  170.     ON ERROR GOTO ERRQUIT
  171.  
  172.     IF ERR = 0 THEN
  173.         dlg% = EXITSUCCESS
  174.     ELSEIF ERR = STFQUIT THEN
  175.         dlg% = EXITQUIT
  176.     IF IFileExists = 1 THEN
  177.           IF DoesFileExist(WinSysDir$+"indeo.vfw", femExists) = 1 THEN
  178.             IF DoesFileExist(WinSysDir$+"indeo.drv", femExists) = 0 THEN
  179.           WinVfw$ = WinSysDir$+"indeo.vfw"
  180.           BackupFile WinVfw$, "indeo.drv"
  181.             ENDIF
  182.           ENDIF
  183.         ENDIF
  184.     ELSE
  185.         dlg% = EXITFAILURE
  186.     END IF
  187. QUITL1:
  188.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  189.     IF sz$ = "REACTIVATE" THEN
  190.         GOTO QUITL1
  191.     END IF
  192.     UIPop 1
  193.  
  194.     END
  195.  
  196. ERRQUIT:
  197.     i% = DoMsgBox("Setup sources were corrupted, call the included support number", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  198.     END
  199.  
  200. ASKQUIT:
  201.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  202.  
  203.     IF sz$ = "EXIT" THEN
  204.         UIPopAll
  205. ''        ERROR STFQUIT
  206.         END
  207.     ELSEIF sz$ = "REACTIVATE" THEN
  208.         GOTO ASKQUIT
  209.     ELSE
  210.         UIPop 1
  211.     END IF
  212.     RETURN
  213.  
  214. TOOBIG:
  215.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  216.     IF sz$ = "REACTIVATE" THEN
  217.         GOTO TOOBIG
  218.     END IF
  219.     UIPop 1
  220.     RETURN
  221.  
  222. BADPATH:
  223.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  224.     IF sz$ = "REACTIVATE" THEN
  225.         GOTO BADPATH
  226.     END IF
  227.     UIPop 1
  228.     RETURN
  229. '**
  230. '** Purpose:
  231. '**     Appends a file name to the end of a directory path,
  232. '**     inserting a backslash character as needed.
  233. '** Arguments:
  234. '**     szDir$  - full directory path (with optional ending "\")
  235. '**     szFile$ - filename to append to directory
  236. '** Returns:
  237. '**     Resulting fully qualified path name.
  238. '*************************************************************************
  239. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  240.     IF szDir$ = "" THEN
  241.         MakePath = szFile$
  242.     ELSEIF szFile$ = "" THEN
  243.         MakePath = szDir$
  244.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  245.         MakePath = szDir$ + szFile$
  246.     ELSE
  247.         MakePath = szDir$ + "\" + szFile$
  248.     END IF
  249. END FUNCTION
  250.